home *** CD-ROM | disk | FTP | other *** search
/ Computer Life: SuperPac / SuperPac (Computer Life Magazine)(Ziff-Davis)(1995).ISO / pc / demos / nile / senet.exe / senet.DXR / 00023_Initial Game Loop.ls < prev    next >
Encoding:
Text File  |  1995-05-04  |  821 b   |  34 lines
  1. on exitFrame
  2.   global theSenetGame, aFirstPlayerSelected
  3.   if the playerMoving of theSenetGame = the computerPlayer of theSenetGame then
  4.     PauseForThis(30)
  5.     resetDice(100)
  6.     PauseForThis(15)
  7.     rollDice(theSenetGame)
  8.     checkForOne(theSenetGame)
  9.   else
  10.     if the playerMoving of theSenetGame = 1 then
  11.       PauseForThis(30)
  12.       resetDice(100)
  13.     else
  14.       if the playerMoving of theSenetGame = 2 then
  15.         PauseForThis(30)
  16.         resetDice(440)
  17.       end if
  18.     end if
  19.   end if
  20.   if not aFirstPlayerSelected then
  21.     go(the frame)
  22.   end if
  23. end
  24.  
  25. on resetDice Hloc
  26.   set Iteration to 1
  27.   repeat with x = 4 to 7
  28.     set the locH of sprite x to Hloc + (Iteration * 25)
  29.     set the castNum of sprite x to the number of cast "Dice Down.1"
  30.     updateStage()
  31.     set Iteration to Iteration + 1
  32.   end repeat
  33. end
  34.